Imports Microsoft.VisualBasic
'---------------------------------------------------------------------
'CLASSNAME : PTY_DAT_CUR_CASH 
'DESCRIPTION : USE FOR MANAGE TABLE PTY_DAT_CUR_CASH
'CREATEDATE : 24/02/2551
'CREATEBY : PATTARAWUT CHANNGAM
'---------------------------------------------------------------------
Public Class PTY_DAT_CUR_CASH
    Dim Conn As New Connect                         'New Object Connect
    Dim fcn As New CLS_FCN                          'New Object CLS_FCN

    Public Sub InsertData(ByVal CashAmount As String, ByVal Create As String, ByVal CreateBy As String)
        Dim INS_SQL = "INSERT INTO PTY_DAT_CUR_CASH " & _
                      "(CASH_AMOUNT,CASH_CREATE,CASH_CREATEBY) " & _
                      "VALUES ('" & CashAmount & "','" & Create & "','" & CreateBy & "') "
        Conn.Query(INS_SQL)
    End Sub
End Class
